home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer (Italian) 48
/
PC Gamer IT CD 48 2-2.iso
/
utility
/
nmail28u
/
DISK1
/
_SETUP.1
/
NETMAIL.EXE
/
0
/
RCDATA
/
TADDRESSFORM
/
TADDRESSFORM.txt
< prev
Wrap
Text File
|
1999-09-10
|
53KB
|
1,510 lines
object AddressForm: TAddressForm
Left = 16
Top = 65
HelpContext = 180
BorderStyle = bsDialog
Caption = 'Address Book'
ClientHeight = 397
ClientWidth = 630
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FormStyle = fsMDIChild
HelpFile = 'netmail.hlp'
Position = poScreenCenter
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 630
Height = 31
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object SBOpengroup: TSpeedButton
Left = 92
Top = 5
Width = 122
Height = 24
Hint = 'Open or add new mailing list'
Caption = 'Open/Add New List'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8
B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8
B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB
0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000
55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05
55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05
55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555
5555575FFF755555555557000075555555555577775555555555}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SBOpengroupClick
end
object SBSavegroup: TSpeedButton
Left = 281
Top = 5
Width = 88
Height = 24
Hint =
'You have to select email address before list saving.'#13#10'Use "Selec' +
't Email" button.'
Caption = 'Save List As'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SBSavegroupClick
end
object SBEdit: TSpeedButton
Left = 214
Top = 5
Width = 66
Height = 24
Hint = 'Edit, Rename Mailing List'
Caption = 'Edit List'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF773333303300000003333337337777777333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SBEditClick
end
object SBDubleA: TSpeedButton
Left = 369
Top = 5
Width = 140
Height = 24
Caption = 'Remove duplicate email'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
0033333337FFFFFF773333333000000003333333377777777333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SBDubleAClick
end
object SpeedButton5: TSpeedButton
Left = 510
Top = 5
Width = 57
Height = 24
Caption = 'Import'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
F033777777777337F73309999990FFF0033377777777FFF77333099999000000
3333777777777777333333399033333333333337773333333333333903333333
3333333773333333333333303333333333333337333333333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton5Click
end
object SpeedButton7: TSpeedButton
Left = 441
Top = -12
Width = 78
Height = 24
Caption = 'Report'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
0033333337FFFFFF773333333000000003333333377777777333}
NumGlyphs = 2
ParentFont = False
Visible = False
OnClick = SBDubleAClick
end
object Label6: TLabel
Left = 8
Top = 10
Width = 76
Height = 13
Caption = 'Mailing list ->'
Visible = False
end
object BitBSave: TSpeedButton
Left = 5
Top = 5
Width = 88
Height = 24
Hint =
'Select mailing list for the message'#13#10'and back to the message for' +
'm'
Caption = 'Select list'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentFont = False
OnClick = BitBSaveClick
end
object Panel4: TPanel
Left = 563
Top = 0
Width = 67
Height = 31
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object BitBtn2: TExplorerButton
Left = 2
Top = 4
Width = 65
Height = 26
NoFocusBitmap.Data = {
96010000424D9601000000000000760000002800000014000000180000000100
0400000000002001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777700007777777777777777777700007777777777777777777700007777
7777777777777777000077777777777777777777000000007EEEEEEEEEEE0000
0000777076666666666008770000777076666666666008770000777076666666
666008770000777076B666666660087700007770766666666660087700007770
76B66666666008770000777076B66666666008770000777076B6666666600877
0000777076666666666008770000777076666666666008770000777076666666
6660087700007770766666666660087700007770766666666660087700007770
7666666666600877000077707666666666600877000077707777777777770877
0000777000000000000008770000777777777777777777770000}
Bitmap.Data = {
96010000424D9601000000000000760000002800000016000000180000000100
0400000000002001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777007777777777777777770007007777777777777777706607007777
7777777777770666070077777777777777706666070000007777777777066666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770
EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770
EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877
7700777000000000000007777700777777777777777777777700}
Caption = 'Close'
DisabledBitmap.Data = {
96010000424D9601000000000000760000002800000016000000180000000100
0400000000002001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777007777777777777777770007007777777777777777706607007777
7777777777770666070077777777777777706666070000007777777777066666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770
EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770
EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877
7700777000000000000007777700777777777777777777777700}
Layout = blBitmapLeft
Options = [boMonoDisplay, boPopupMark, boShowBevel]
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OnClick = BitBtn2Click
ParentFont = False
IBitmap = {
424D560A00000000000036000000280000001F0000001B000000010018000000
0000200A0000000000000000000000000000000000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFF000000BFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000
BFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFF
FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF
000000BFBFBFFFFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFF
FFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBF00000000
0000000000000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7FFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFF7F7F7F7F7F7F7F7F7FBFBFBFBFBFBF7F7F7F7F7F
7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000FFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBF7F7F
7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000
FFFFFFFFFFFFFFFFFF000000000000FFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7F
7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
7FFFFFFFFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFFFFFFFFFFFFFFFFFFFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
BFBFBFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
000000BFBFBFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000000000000000000000000000000000000000000000000000
000000000000BFBFBF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000000000000000000000000000000000000000000000000000
000000000000000000000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF000000}
end
end
end
object Panel2: TPanel
Left = 0
Top = 31
Width = 630
Height = 82
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Bevel1: TBevel
Left = 0
Top = 78
Width = 630
Height = 4
Align = alBottom
Style = bsRaised
end
object SpeedButton1: TSpeedButton
Left = 3
Top = 28
Width = 88
Height = 24
Hint = 'Table/Form '
Caption = 'Table/Form'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
66010000424D6601000000000000760000002800000013000000140000000100
040000000000F000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
EEEEEEE00000EEEEEEEEEEEEEEEEEEE00000EEEEEEEEEEFFFFFFFFE00000EE22
22E22EF22F222FE00000EEEEEEEEEEFFFFFFFFE00000EEEEEEEEEEEEEEEEEEE0
0000EEEEEEEEEEFFFFFFFFE00000EE222E222EF222222FE00000EEEEEEEEEEFF
FFFFFFE00000EEEEEEEEEEEEEEEEEEE00000EEEEEEEEEEFFFFFFFFE00000EE22
222EEEF2222FEFE00000EEEEEEEEEEFFFFFFFFE00000EEEEEEEEEEEEEEEEEEE0
0000EEEEEEEEEEFFFFFFFFE00000EEE22E22EEF222F22FE00000EEEEEEEEEEFF
FFFFFFE00000EEEEEEEEEEEEEEEEEEE00000EEE222E2222222222EE00000EEEE
EEEEEEEEEEEEEEE00000}
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = DBGridadressDblClick
end
object SBSelect: TSpeedButton
Left = 175
Top = 28
Width = 77
Height = 24
Hint = 'Select all email for mailing list'
Caption = 'Select all'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333000003333333333F777773FF333333003333300
33333337733333773F33330333333333033333733FFFFFFF73F3303300000003
303337F37777777337F3303330CCC0333033373337777733373F0333330C0333
33037F33337773FFF37F03333330300033037F3FFFF73777FF7F0300000307B7
03037F77777F77777F7F030999030BBB03037F77777F77777F7F0309990307B7
03037377777F7777737330099903300030333777777F377737F3300000033333
3033377777733333373333033333333303333373FF33333F7333333003333300
3333333773FFFF77333333333000003333333333377777333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SBSelectClick
end
object SBSelone: TSpeedButton
Left = 91
Top = 28
Width = 84
Height = 24
Hint = 'Select email address for mailing list'
Caption = 'Select Email'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SBSeloneClick
end
object SpeedButton4: TSpeedButton
Left = 256
Top = 28
Width = 80
Height = 24
Caption = 'Filter'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton4Click
end
object Label9: TLabel
Left = 9
Top = 6
Width = 95
Height = 13
Caption = 'Mailing List Name ->'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SBMessage: TSpeedButton
Left = 336
Top = 28
Width = 78
Height = 24
Hint = 'Messages for selected addresses'
Caption = 'Messages'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF
77F07F773FFFFFFF77F70FFF7700000000007F337777777777770FFFFF0FFFFF
FFF07F333F7F3FFFF3370FFF700F0000FFF07F3F777F777733370F707F0FFFFF
FFF07F77337F3FFFFFF7007EEE0F000000F077FFFF7F777777370777770FFFFF
FFF07777777F3FFFFFF7307EEE0F000000F03773FF7F7777773733707F0FFFFF
FFF03337737F3FFF33373333700F000FFFF03333377F77733FF73333330FFFFF
00003333337F3FF377773333330F00FF0F033333337F77337F733333330FFFFF
00333333337FFFFF773333333300000003333333337777777333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SBMessageClick
end
object SBaddList: TSpeedButton
Left = 256
Top = 52
Width = 242
Height = 25
Caption = 'Add Selected Addresses to Mailing List'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
3055577777555557F7F555000555555999555577755555577755}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SBaddListClick
end
object SBdeleteFromList: TSpeedButton
Left = 3
Top = 52
Width = 249
Height = 25
Caption = 'Delete Selected Addresses from Mailing List'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000003
33333333777777733333333330CCC03333333333F7777733F3333330330C0330
33333337337773373333333333303333333333F33337333333F3303333333333
3033373333333333373333333333333333333F3333333333333F033333333333
3303733333333333337333333333333333333F3333333333333F033333333333
3303733333333333FF7333333333333000333FFFFF33333777FF000003333307
B70377777F333377777F09990333330BBB0377777F333377777F099903333307
B70377777F3333777773099903333330003377777F3333377733000003333330
3333777773F3F3F7333333333030303333333333373737333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SBdeleteFromListClick
end
object SBdellist: TSpeedButton
Left = 498
Top = 52
Width = 127
Height = 25
Caption = 'Delete List'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
3333333337FFF7F3333333333000003333333333377777333333}
NumGlyphs = 2
ParentFont = False
Visible = False
OnClick = SBdellistClick
end
object DBNavigator1: TDBNavigator
Left = 416
Top = 28
Width = 125
Height = 24
DataSource = DSadressUP
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
Flat = True
ParentShowHint = False
ShowHint = True
TabOrder = 0
BeforeAction = DBNavigator1BeforeAction
end
object DBNavigator2: TDBNavigator
Left = 541
Top = 28
Width = 84
Height = 24
DataSource = DSadress
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
Flat = True
TabOrder = 1
end
object NamegrouptLB: TComboBox
Left = 107
Top = 2
Width = 516
Height = 21
Style = csDropDownList
Color = clWhite
Ctl3D = False
DropDownCount = 30
ItemHeight = 13
Items.Strings = (
'Last Name'
'First Name'
'Address')
ParentCtl3D = False
TabOrder = 2
OnChange = NamegrouptLBChange
end
end
object Panel3: TPanel
Left = 0
Top = 113
Width = 630
Height = 284
Align = alClient
BevelOuter = bvNone
TabOrder = 2
object Splitter1: TSplitter
Left = 627
Top = 0
Width = 3
Height = 284
Cursor = crHSplit
Align = alRight
end
object Label1: TLabel
Left = 8
Top = 104
Width = 61
Height = 13
Caption = 'Last Name'
end
object Label3: TLabel
Left = 8
Top = 131
Width = 52
Height = 13
Caption = 'Company'
end
object Label4: TLabel
Left = 10
Top = 26
Width = 35
Height = 13
Caption = 'E.mail'
end
object Label2: TLabel
Left = 8
Top = 77
Width = 61
Height = 13
Caption = 'First Name'
end
object Image1: TImage
Left = 192
Top = 288
Width = 105
Height = 105
Picture.Data = {<image000.bmp>}
Visible = False
end
object Label5: TLabel
Left = 8
Top = 158
Width = 65
Height = 13
Caption = 'Description'
end
object Label13: TLabel
Left = 10
Top = 50
Width = 26
Height = 13
Caption = 'URL'
end
object DBCheckBox2: TDBCheckBox
Left = 88
Top = 208
Width = 600
Height = 17
Caption =
'The address is blocked as it is included in the stop list databa' +
'se'
DataField = 'StopList'
DataSource = DSadressUP
ReadOnly = True
TabOrder = 10
ValueChecked = 'True;Yes;'
ValueUnchecked = 'False;No;'
end
object DBCheckBox1: TDBCheckBox
Left = 88
Top = 184
Width = 300
Height = 17
Caption = 'To block the address'
DataField = 'BlockAdress'
DataSource = DSadressUP
TabOrder = 9
ValueChecked = 'True;Yes;'
ValueUnchecked = 'False;No;'
end
object DBEdit6: TDBEdit
Left = 86
Top = 50
Width = 361
Height = 21
BorderStyle = bsNone
Color = 14935011
DataField = 'URL'
DataSource = DSadressUP
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object DBEdit5: TDBEdit
Left = 86
Top = 154
Width = 443
Height = 21
BorderStyle = bsNone
Color = 14935011
DataField = 'Description'
DataSource = DSadressUP
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object DBEdit4: TDBEdit
Left = 86
Top = 24
Width = 289
Height = 21
BorderStyle = bsNone
Color = 14935011
DataField = 'HomeEMail'
DataSource = DSadressUP
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object DBEdit3: TDBEdit
Left = 86
Top = 128
Width = 361
Height = 21
BorderStyle = bsNone
Color = 14935011
DataField = 'Company'
DataSource = DSadressUP
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object DBEdit2: TDBEdit
Left = 86
Top = 101
Width = 361
Height = 21
BorderStyle = bsNone
Color = 14935011
DataField = 'LastName'
DataSource = DSadressUP
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object DBEdit1: TDBEdit
Left = 86
Top = 75
Width = 361
Height = 21
BorderStyle = bsNone
Color = 14935011
DataField = 'FirstName'
DataSource = DSadressUP
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object DBRadioGroup1: TDBRadioGroup
Left = 382
Top = 17
Width = 223
Height = 30
Columns = 3
DataField = 'TypeAdress'
DataSource = DSadressUP
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Items.Strings = (
'e.mail '
'cc '
'bcc')
ParentFont = False
TabOrder = 1
Values.Strings = (
'0'
'1'
'2')
end
object DBGridadress: TDBGrid
Left = 0
Top = 0
Width = 627
Height = 284
Align = alClient
BorderStyle = bsNone
DataSource = DSadress
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 6
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawDataCell = DBGridadressDrawDataCell
OnDblClick = DBGridadressDblClick
OnKeyDown = DBGridadressKeyDown
end
object ToList: TListBox
Tag = 1
Left = 297
Top = 52
Width = 24
Height = 155
ItemHeight = 13
Style = lbOwnerDrawFixed
TabOrder = 7
Visible = False
end
end
object PanelGroup: TPanel
Left = 0
Top = 113
Width = 630
Height = 284
Align = alClient
BevelOuter = bvLowered
TabOrder = 3
Visible = False
object Panel5: TPanel
Left = 1
Top = 1
Width = 628
Height = 117
Align = alTop
TabOrder = 0
object DBText1: TDBText
Left = 117
Top = 33
Width = 303
Height = 19
Color = clWhite
DataField = 'NameGroup'
DataSource = DSGroup
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label7: TLabel
Left = 7
Top = 34
Width = 101
Height = 13
Caption = 'Mailing List Name'
end
object Label8: TLabel
Left = 7
Top = 55
Width = 44
Height = 13
Caption = 'Subject'
end
object Label10: TLabel
Left = 7
Top = 75
Width = 52
Height = 13
Caption = 'Comment'
end
object Label11: TLabel
Left = 7
Top = 95
Width = 39
Height = 13
Caption = 'Note 1'
end
object Label12: TLabel
Left = 283
Top = 95
Width = 39
Height = 13
Caption = 'Note 2'
end
object SpeedButton2: TSpeedButton
Left = 4
Top = 4
Width = 128
Height = 24
Caption = 'Select mailing list'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentFont = False
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 261
Top = 4
Width = 128
Height = 24
Caption = 'Cancel'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
993337777F777F3377F3393999707333993337F77737333337FF993399933333
399377F3777FF333377F993339903333399377F33737FF33377F993333707333
399377F333377FF3377F993333101933399377F333777FFF377F993333000993
399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
99333773FF777F777733339993707339933333773FF7FFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
ParentFont = False
Spacing = 3
OnClick = SpeedButton3Click
end
object DBText2: TDBText
Left = 117
Top = 53
Width = 303
Height = 19
Color = clWhite
DataField = 'Subject'
DataSource = DSGroup
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object DBText3: TDBText
Left = 117
Top = 73
Width = 303
Height = 19
Color = clWhite
DataField = 'Comment'
DataSource = DSGroup
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object DBText4: TDBText
Left = 60
Top = 93
Width = 177
Height = 19
Color = clWhite
DataField = 'Note1'
DataSource = DSGroup
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object DBText5: TDBText
Left = 332
Top = 93
Width = 285
Height = 19
Color = clWhite
DataField = 'Note2'
DataSource = DSGroup
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object SpeedButton6: TSpeedButton
Left = 132
Top = 4
Width = 128
Height = 24
Caption = 'Add new mailing list'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8
B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8
B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB
0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000
55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05
55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05
55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555
5555575FFF755555555557000075555555555577775555555555}
NumGlyphs = 2
ParentFont = False
OnClick = SpeedButton6Click
end
end
object DBGridGroup: TDBGrid
Left = 1
Top = 118
Width = 628
Height = 165
Align = alClient
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
DataSource = DSGroup
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentCtl3D = False
ParentFont = False
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object Tadress: TTable
Filtered = True
OnCalcFields = TadressCalcFields
DatabaseName = 'Vistamail'
IndexFieldNames = 'PosA'
TableName = 'ADRESS5.DB'
TableType = ttParadox
Left = 462
Top = 244
object TadressVybor: TBooleanField
DisplayLabel = 'Select'
DisplayWidth = 6
FieldName = 'Vybor'
end
object TadresstypeadresStr: TStringField
DisplayLabel = '-'
FieldName = 'typeadresStr'
Visible = False
Size = 5
Calculated = True
end
object TadressHomeEMail: TStringField
DisplayLabel = 'E.mail'
DisplayWidth = 20
FieldName = 'HomeEMail'
Size = 50
end
object TadressFirstName: TStringField
DisplayLabel = 'First Name'
DisplayWidth = 20
FieldName = 'FirstName'
Size = 40
end
object TadressLastName: TStringField
DisplayLabel = 'Last Name'
DisplayWidth = 20
FieldName = 'LastName'
Size = 40
end
object TadressURL: TStringField
FieldName = 'URL'
Size = 255
end
object TadressCompany: TStringField
DisplayWidth = 30
FieldName = 'Company'
Size = 50
end
object TadressDescription: TStringField
DisplayLabel = 'Note'
FieldName = 'Description'
Size = 60
end
object TadressTypeAdress: TSmallintField
FieldName = 'TypeAdress'
Visible = False
end
object TadressLN: TStringField
FieldName = 'LN'
Visible = False
Size = 1
end
object TadressFN: TStringField
FieldName = 'FN'
Visible = False
Size = 1
end
object TadressPosA: TIntegerField
FieldName = 'PosA'
Visible = False
end
object TadressFComp: TStringField
FieldName = 'FComp'
Visible = False
Size = 1
end
object TadressBlockAdress: TBooleanField
FieldName = 'BlockAdress'
Visible = False
end
object TadressStopList: TBooleanField
FieldName = 'StopList'
Visible = False
end
end
object DSadress: TDataSource
DataSet = Tadress
Left = 502
Top = 252
end
object QadressUp: TQuery
DatabaseName = 'Vistamail'
Left = 514
Top = 292
end
object TGroup: TTable
DatabaseName = 'VistaMail'
TableName = 'GroupNam.db'
TableType = ttParadox
Left = 376
Top = 141
object TGroupNameGroup: TStringField
DisplayLabel = 'Name Group'
DisplayWidth = 30
FieldName = 'NameGroup'
Size = 50
end
object TGroupSubject: TStringField
DisplayWidth = 30
FieldName = 'Subject'
Size = 100
end
object TGroupComment: TStringField
FieldName = 'Comment'
Visible = False
Size = 150
end
object TGroupPosG: TAutoIncField
FieldName = 'PosG'
Visible = False
end
object TGroupNote1: TStringField
FieldName = 'Note1'
Size = 50
end
object TGroupNote2: TStringField
FieldName = 'Note2'
Size = 50
end
end
object TListGroup: TTable
DatabaseName = 'VistaMail'
TableName = 'ListGr.db'
TableType = ttParadox
Left = 448
Top = 129
object TListGroupPosG: TIntegerField
FieldName = 'PosG'
end
object TListGroupPosA: TIntegerField
FieldName = 'PosA'
end
end
object Tdbadrmes: TTable
DatabaseName = 'VistaMail'
TableName = 'dbadrmes.DB'
TableType = ttParadox
Left = 516
Top = 155
end
object DSadressUP: TDataSource
DataSet = QueryUp
Left = 580
Top = 291
end
object QueryUp: TQuery
AfterInsert = QueryUpAfterInsert
BeforeEdit = QueryUpBeforeEdit
BeforePost = QueryUpBeforePost
AfterDelete = QueryUpAfterDelete
DatabaseName = 'VistaMail'
RequestLive = True
SQL.Strings = (
'select * from adress5 where PosA=:a0')
Params.Data = {0100010002613000030400000000000000}
Left = 560
Top = 247
end
object Qadress: TQuery
BeforeOpen = QadressBeforeOpen
AfterOpen = QadressAfterOpen
DatabaseName = 'Vistamail'
SQL.Strings = (
'select * from adress5')
Left = 442
Top = 298
object QadressVybor: TBooleanField
DisplayLabel = 'Type'
FieldName = 'Vybor'
Origin = '"adress5.DB".Vybor'
end
object QadressHomeEMail: TStringField
Tag = 1
DisplayLabel = 'E.mail'
DisplayWidth = 20
FieldName = 'HomeEMail'
Origin = '"adress5.DB".HomeEMail'
Size = 50
end
object QadressFirstName: TStringField
Tag = 1
DisplayLabel = 'First Name'
DisplayWidth = 20
FieldName = 'FirstName'
Origin = '"adress5.DB".FirstName'
Size = 40
end
object QadressLastName: TStringField
Tag = 1
DisplayLabel = 'Last Name'
DisplayWidth = 20
FieldName = 'LastName'
Origin = '"adress5.DB".LastName'
Size = 40
end
object QadressURL: TStringField
Tag = 1
DisplayWidth = 25
FieldName = 'URL'
Origin = '"adress5.DB".PosA'
Size = 255
end
object QadressCompany: TStringField
Tag = 1
DisplayWidth = 35
FieldName = 'Company'
Origin = '"adress5.DB".Company'
Size = 50
end
object QadressDescription: TStringField
Tag = 1
DisplayLabel = 'Note'
DisplayWidth = 30
FieldName = 'Description'
Origin = '"adress5.DB".Description'
Size = 60
end
object QadressTypeAdress: TSmallintField
DisplayLabel = 'TypeAddress'
FieldName = 'TypeAdress'
Origin = '"adress5.DB".TypeAdress'
Visible = False
end
object QadressLN: TStringField
FieldName = 'LN'
Origin = '"adress5.DB".LN'
Visible = False
Size = 1
end
object QadressPosA: TIntegerField
FieldName = 'PosA'
Origin = '"adress5.DB".PosA'
Visible = False
end
object QadressFN: TStringField
FieldName = 'FN'
Origin = '"adress5.DB".FN'
Visible = False
Size = 1
end
object QadressFComp: TStringField
FieldName = 'FComp'
Origin = '"adress5.DB".FComp'
Visible = False
Size = 1
end
object QadressBlockAdress: TBooleanField
DisplayLabel = 'Block adress'
FieldName = 'BlockAdress'
Origin = '"adress5.DB".LastName'
DisplayValues = 'Yes;No'
end
object QadressStopList: TBooleanField
FieldName = 'StopList'
Origin = '"adress5.DB".PosA'
Visible = False
end
end
object DSGroup: TDataSource
DataSet = TGroup
Left = 386
Top = 286
end
end